home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / HENSA / MISC / PDP.ARC / Source_h_ia < prev    next >
Encoding:
Text File  |  1987-09-27  |  1.8 KB  |  86 lines
  1. /*
  2.  
  3.        This file is part of the PDP software package.
  4.          
  5.        Copyright 1987 by James L. McClelland and David E. Rumelhart.
  6.        
  7.        Please refer to licensing information in the file license.txt,
  8.        which is in the same directory with this source file and is
  9.        included here by reference.
  10. */
  11.  
  12.  
  13. /* file: ia.h
  14.  
  15.     Header file for the ia program.
  16.     
  17.     First version implemented by Elliot Jaffe.
  18.     
  19.     Date of last revision:  8-12-87/JLM.
  20. */
  21.  
  22. #define AlphaMenu -255
  23. #define BetaMenu  -254
  24. #define GammaMenu -253
  25. #define ThreshMenu -252
  26. #define MaxMenu -251
  27. #define MinMenu -250
  28. #define RestMenu -249
  29. /* #define ImaxMenu 248 */
  30. #define ProbMenu -247
  31. #define EstrMenu -246
  32. #define ListsMenu -245
  33. #define OscaleMenu -244
  34.  
  35. #define NUM_VALS    7
  36. #define E     2.718281828
  37. #define NFIELDS    7
  38. #define NWORD    1179
  39. #define WLEN    4
  40. #define NLET    26
  41. #define    LLEN    14
  42. #define    NFET    2
  43. #define F    0
  44. #define FU    1
  45. #define    LD    2
  46. #define L    3
  47. #define LU    4
  48. #define WD    5
  49. #define W    6
  50. #define NOWIN    -1
  51.  
  52. #define WA    0
  53. #define    LA    1
  54. #define WO    2
  55. #define    LO    3
  56.  
  57. extern char word[NWORD][5];
  58. extern float freq[NWORD];
  59. extern int uc[26][14];
  60.  
  61. extern int quiet;
  62. extern float a[],b[],g[],t[],max[],min[],rest[],estr[],fdprob[],
  63.        oscale[],dthresh[];
  64.        
  65. extern float wa[NWORD];
  66. extern float l[WLEN][NLET];
  67. extern float outrate,fgain;
  68. extern int ncycles;
  69. extern int compute_resprob;
  70. extern int cycleno,tally;
  71. extern int tal[];
  72. extern float prsum,prsm[];
  73. extern int fc_pos,fc_let[2];
  74. extern float fc_max;
  75. extern char *trial_history[NFIELDS];
  76. extern char th[NFIELDS][10];
  77. extern char    *disp_word_ptr[30];
  78. extern char    *disp_fc_ptr[2];
  79. extern char    *disp_let_ptr[WLEN][15];
  80. extern float    disp_word_act[30];
  81. extern float    disp_fc_act[2];
  82. extern float   disp_let_act[WLEN][15];
  83. extern float    disp_word_rpr[30];
  84. extern float    disp_fc_rpr[2];
  85. extern float   disp_let_rpr[WLEN][15];
  86.